home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / comm / irc / cybershiela.lha / cs / shielacc.amirx < prev    next >
Text File  |  1999-07-07  |  13KB  |  264 lines
  1. /* Zonkerz     CountryCode AmIRC add-on
  2.         System for CyberShiela
  3. */
  4.  
  5. options results
  6. arg country
  7. nick=getclip('NICK')
  8. cc=upper(country)
  9. IF cc="AD" then do;'say AD =    Andorra';a=5;end
  10. IF cc="AE" then do;'say AE =    United Arab Emirates';a=5;end
  11. IF cc="AF" then do;'say AF =    Afghanistan';a=5;end
  12. IF cc="AG" then do;'say AG =    Antigua and Barbuda';a=5;end
  13. IF cc="AI" then do;'say AI =    Anguilla';a=5;end
  14. IF cc="AL" then do;'say AL =    Albania';a=5;end
  15. IF cc="AM" then do;'say AM =    Armenia';a=5;end
  16. IF cc="AN" then do;'say AN =    Netherlands Antilles';a=5;end
  17. IF cc="AO" then do;'say AO =    Angola';a=5;end
  18. IF cc="AQ" then do;'say AQ =    Antarctica';a=5;end
  19. IF cc="AR" then do;'say AR =    Argentina';a=5;end
  20. IF cc="AS" then do;'say AS =    American Samoa';a=5;end
  21. IF cc="AT" then do;'say AT =    Austria';a=5;end
  22. IF cc="AU" then do;'say AU =    Australia';a=5;end
  23. IF cc="AW" then do;'say AW =    Aruba';a=5;end
  24. IF cc="AZ" then do;'say AZ =    Azerbaijan';a=5;end
  25. IF cc="BA" then do;'say BA =    Bosnia and Herzegovina';a=5;end
  26. IF cc="BB" then do;'say BB =    Barbados';a=5;end
  27. IF cc="BD" then do;'say BD =    Bangladesh';a=5;end
  28. IF cc="BE" then do;'say BE =    Belgium';a=5;end
  29. IF cc="BF" then do;'say BF =    Burkina Faso';a=5;end
  30. IF cc="BG" then do;'say BG =    Bulgaria';a=5;end
  31. IF cc="BH" then do;'say BH =    Bahrain';a=5;end
  32. IF cc="BI" then do;'say BI =    Burundi';a=5;end
  33. IF cc="BJ" then do;'say BJ =    Benin';a=5;end
  34. IF cc="BM" then do;'say BM =    Bermuda';a=5;end
  35. IF cc="BN" then do;'say BN =    Brunei Darussalam';a=5;end
  36. IF cc="BO" then do;'say BO =    Bolivia';a=5;end
  37. IF cc="BR" then do;'say BR =    Brazil';a=5;end
  38. IF cc="BS" then do;'say BS =    Bahamas';a=5;end
  39. IF cc="BT" then do;'say BT =    Bhutan';a=5;end
  40. IF cc="BV" then do;'say BV =    Bouvet Island';a=5;end
  41. IF cc="BW" then do;'say BW =    Botswana';a=5;end
  42. IF cc="BY" then do;'say BY =    Belarus';a=5;end
  43. IF cc="BZ" then do;'say BZ =    Belize';a=5;end
  44. IF cc="CA" then do;'say CA =    Canada';a=5;end
  45. IF cc="CC" then do;'say CC =    Cocos (Keeling) Islands';a=5;end
  46. IF cc="CF" then do;'say CF =    Central African Republic';a=5;end
  47. IF cc="CG" then do;'say CG =    Congo';a=5;end
  48. IF cc="CH" then do;'say CH =    Switzerland';a=5;end
  49. IF cc="CI" then do;'say CI =    Cote DIvoire (Ivory Coast)';a=5;end
  50. IF cc="CK" then do;'say CK =    Cook Islands';a=5;end
  51. IF cc="CL" then do;'say CL =    Chile';a=5;end
  52. IF cc="CM" then do;'say CM =    Cameroon';a=5;end
  53. IF cc="CN" then do;'say CN =    China';a=5;end
  54. IF cc="CO" then do;'say CO =    Colombia';a=5;end
  55. IF cc="CR" then do;'say CR =    Costa Rica';a=5;end
  56. IF cc="CS" then do;'say CS =    Czsayslovakia (former)';a=5;end
  57. IF cc="CU" then do;'say CU =    Cuba';a=5;end
  58. IF cc="CV" then do;'say CV =    Cape Verde';a=5;end
  59. IF cc="CX" then do;'say CX =    Christmas Island';a=5;end
  60. IF cc="CY" then do;'say CY =    Cyprus';a=5;end
  61. IF cc="CZ" then do;'say CZ =    Czech Republic';a=5;end
  62. IF cc="DE" then do;'say DE =    Germany';a=5;end
  63. IF cc="DJ" then do;'say DJ =    Djibouti';a=5;end
  64. IF cc="DK" then do;'say DK =    Denmark';a=5;end
  65. IF cc="DM" then do;'say DM =    Dominica';a=5;end
  66. IF cc="DO" then do;'say DO =    Dominican Republic';a=5;end
  67. IF cc="DZ" then do;'say DZ =    Algeria';a=5;end
  68. IF cc="EC" then do;'say EC =    Ecuador';a=5;end
  69. IF cc="EE" then do;'say EE =    Estonia';a=5;end
  70. IF cc="EG" then do;'say EG =    Egypt';a=5;end
  71. IF cc="EH" then do;'say EH =    Western Sahara';a=5;end
  72. IF cc="ER" then do;'say ER =    Eritrea';a=5;end
  73. IF cc="ES" then do;'say ES =    Spain';a=5;end
  74. IF cc="ET" then do;'say ET =    Ethiopia';a=5;end
  75. IF cc="FI" then do;'say FI =    Finland';a=5;end
  76. IF cc="FJ" then do;'say FJ =    Fiji';a=5;end
  77. IF cc="FK" then do;'say FK =    Falkland Islands (Malvinas)';a=5;end
  78. IF cc="FM" then do;'say FM =    Micronesia';a=5;end
  79. IF cc="FO" then do;'say FO =    Faroe Islands';a=5;end
  80. IF cc="FR" then do;'say FR =    France';a=5;end
  81. IF cc="FX" then do;'say FX =    France, Metropolitan';a=5;end
  82. IF cc="GA" then do;'say GA =    Gabon';a=5;end
  83. IF cc="GB" then do;'say GB =    Great Britain (UK)';a=5;end
  84. IF cc="GD" then do;'say GD =    Grenada';a=5;end
  85. IF cc="GE" then do;'say GE =    Georgia';a=5;end
  86. IF cc="GF" then do;'say GF =    French Guiana';a=5;end
  87. IF cc="GH" then do;'say GH =    Ghana';a=5;end
  88. IF cc="GI" then do;'say GI =    Gibraltar';a=5;end
  89. IF cc="GL" then do;'say GL =    Greenland';a=5;end
  90. IF cc="GM" then do;'say GM =    Gambia';a=5;end
  91. IF cc="GN" then do;'say GN =    Guinea';a=5;end
  92. IF cc="GP" then do;'say GP =    Guadeloupe';a=5;end
  93. IF cc="GQ" then do;'say GQ =    Equatorial Guinea';a=5;end
  94. IF cc="GR" then do;'say GR =    Greece';a=5;end
  95. IF cc="GS" then do;'say GS =    S. Georgia and S. Sandwich Isls.';a=5;end
  96. IF cc="GT" then do;'say GT =    Guatemala';a=5;end
  97. IF cc="GU" then do;'say GU =    Guam';a=5;end
  98. IF cc="GW" then do;'say GW =    Guinea-Bissau';a=5;end
  99. IF cc="GY" then do;'say GY =    Guyana';a=5;end
  100. IF cc="HK" then do;'say HK =    Hong Kong';a=5;end
  101. IF cc="HM" then do;'say HM =    Heard and McDonald Islands';a=5;end
  102. IF cc="HN" then do;'say HN =    Honduras';a=5;end
  103. IF cc="HR" then do;'say HR =    Croatia (Hrvatska)';a=5;end
  104. IF cc="HT" then do;'say HT =    Haiti';a=5;end
  105. IF cc="HU" then do;'say HU =    Hungary';a=5;end
  106. IF cc="ID" then do;'say ID =    Indonesia';a=5;end
  107. IF cc="IE" then do;'say IE =    Ireland';a=5;end
  108. IF cc="IL" then do;'say IL =    Israel';a=5;end
  109. IF cc="IN" then do;'say IN =    India';a=5;end
  110. IF cc="IO" then do;'say IO =    British Indian Ocean Territory';a=5;end
  111. IF cc="IQ" then do;'say IQ =    Iraq';a=5;end
  112. IF cc="IR" then do;'say IR =    Iran';a=5;end
  113. IF cc="IS" then do;'say IS =    Iceland';a=5;end
  114. IF cc="IT" then do;'say IT =    Italy';a=5;end
  115. IF cc="JM" then do;'say JM =    Jamaica';a=5;end
  116. IF cc="JO" then do;'say JO =    Jordan';a=5;end
  117. IF cc="JP" then do;'say JP =    Japan';a=5;end
  118. IF cc="KE" then do;'say KE =    Kenya';a=5;end
  119. IF cc="KG" then do;'say KG =    Kyrgyzstan';a=5;end
  120. IF cc="KH" then do;'say KH =    Cambodia';a=5;end
  121. IF cc="KI" then do;'say KI =    Kiribati';a=5;end
  122. IF cc="KM" then do;'say KM =    Comoros';a=5;end
  123. IF cc="KN" then do;'say KN =    Saint Kitts and Nevis';a=5;end
  124. IF cc="KP" then do;'say KP =    Korea (North)';a=5;end
  125. IF cc="KR" then do;'say KR =    Korea (South)';a=5;end
  126. IF cc="KW" then do;'say KW =    Kuwait';a=5;end
  127. IF cc="KY" then do;'say KY =    Cayman Islands';a=5;end
  128. IF cc="KZ" then do;'say KZ =    Kazakhstan';a=5;end
  129. IF cc="LA" then do;'say LA =    Laos';a=5;end
  130. IF cc="LB" then do;'say LB =    Lebanon';a=5;end
  131. IF cc="LC" then do;'say LC =    Saint Lucia';a=5;end
  132. IF cc="LI" then do;'say LI =    Liechtenstein';a=5;end
  133. IF cc="LK" then do;'say LK =    Sri Lanka';a=5;end
  134. IF cc="LR" then do;'say LR =    Liberia';a=5;end
  135. IF cc="LS" then do;'say LS =    Lesotho';a=5;end
  136. IF cc="LT" then do;'say LT =    Lithuania';a=5;end
  137. IF cc="LU" then do;'say LU =    Luxembourg';a=5;end
  138. IF cc="LV" then do;'say LV =    Latvia';a=5;end
  139. IF cc="LY" then do;'say LY =    Libya';a=5;end
  140. IF cc="MA" then do;'say MA =    Morocco';a=5;end
  141. IF cc="MC" then do;'say MC =    Monaco';a=5;end
  142. IF cc="MD" then do;'say MD =    Moldova';a=5;end
  143. IF cc="MG" then do;'say MG =    Madagascar';a=5;end
  144. IF cc="MH" then do;'say MH =    Marshall Islands';a=5;end
  145. IF cc="MK" then do;'say MK =    Macedonia';a=5;end
  146. IF cc="ML" then do;'say ML =    Mali';a=5;end
  147. IF cc="MM" then do;'say MM =    Myanmar';a=5;end
  148. IF cc="MN" then do;'say MN =    Mongolia';a=5;end
  149. IF cc="MO" then do;'say MO =    Macau';a=5;end
  150. IF cc="MP" then do;'say MP =    Northern Mariana Islands';a=5;end
  151. IF cc="MQ" then do;'say MQ =    Martinique';a=5;end
  152. IF cc="MR" then do;'say MR =    Mauritania';a=5;end
  153. IF cc="MS" then do;'say MS =    Montserrat';a=5;end
  154. IF cc="MT" then do;'say MT =    Malta';a=5;end
  155. IF cc="MU" then do;'say MU =    Mauritius';a=5;end
  156. IF cc="MV" then do;'say MV =    Maldives';a=5;end
  157. IF cc="MW" then do;'say MW =    Malawi';a=5;end
  158. IF cc="MX" then do;'say MX =    Mexico';a=5;end
  159. IF cc="MY" then do;'say MY =    Malaysia';a=5;end
  160. IF cc="MZ" then do;'say MZ =    Mozambique';a=5;end
  161. IF cc="NA" then do;'say NA =    Namibia';a=5;end
  162. IF cc="NC" then do;'say NC =    New Caledonia';a=5;end
  163. IF cc="NE" then do;'say NE =    Niger';a=5;end
  164. IF cc="NF" then do;'say NF =    Norfolk Island';a=5;end
  165. IF cc="NG" then do;'say NG =    Nigeria';a=5;end
  166. IF cc="NI" then do;'say NI =    Nicaragua';a=5;end
  167. IF cc="NL" then do;'say NL =    Netherlands';a=5;end
  168. IF cc="NO" then do;'say NO =    Norway';a=5;end
  169. IF cc="NP" then do;'say NP =    Nepal';a=5;end
  170. IF cc="NR" then do;'say NR =    Nauru';a=5;end
  171. IF cc="NT" then do;'say NT =    Neutral Zone';a=5;end
  172. IF cc="NU" then do;'say NU =    Niue';a=5;end
  173. IF cc="NZ" then do;'say NZ =    New Zealand (Aotearoa)';a=5;end
  174. IF cc="OM" then do;'say OM =    Oman';a=5;end
  175. IF cc="PA" then do;'say PA =    Panama';a=5;end
  176. IF cc="PE" then do;'say PE =    Peru';a=5;end
  177. IF cc="PF" then do;'say PF =    French Polynesia';a=5;end
  178. IF cc="PG" then do;'say PG =    Papua New Guinea';a=5;end
  179. IF cc="PH" then do;'say PH =    Philippines';a=5;end
  180. IF cc="PK" then do;'say PK =    Pakistan';a=5;end
  181. IF cc="PL" then do;'say PL =    Poland';a=5;end
  182. IF cc="PM" then do;'say PM =    St. Pierre and Miquelon';a=5;end
  183. IF cc="PN" then do;'say PN =    Pitcairn';a=5;end
  184. IF cc="PR" then do;'say PR =    Puerto Rico';a=5;end
  185. IF cc="PT" then do;'say PT =    Portugal';a=5;end
  186. IF cc="PW" then do;'say PW =    Palau';a=5;end
  187. IF cc="PY" then do;'say PY =    Paraguay';a=5;end
  188. IF cc="QA" then do;'say QA =    Qatar';a=5;end
  189. IF cc="RE" then do;'say RE =    Reunion';a=5;end
  190. IF cc="RO" then do;'say RO =    Romania';a=5;end
  191. IF cc="RU" then do;'say RU =    Russian Federation';a=5;end
  192. IF cc="RW" then do;'say RW =    Rwanda';a=5;end
  193. IF cc="SA" then do;'say SA =    Saudi Arabia';a=5;end
  194. IF cc="SB" then do;'say SB =    Solomon Islands';a=5;end
  195. IF cc="SC" then do;'say SC =    Seychelles';a=5;end
  196. IF cc="SD" then do;'say SD =    Sudan';a=5;end
  197. IF cc="SE" then do;'say SE =    Sweden';a=5;end
  198. IF cc="SG" then do;'say SG =    Singapore';a=5;end
  199. IF cc="SH" then do;'say SH =    St. Helena';a=5;end
  200. IF cc="SI" then do;'say SI =    Slovenia';a=5;end
  201. IF cc="SJ" then do;'say SJ =    Svalbard and Jan Mayen Islands';a=5;end
  202. IF cc="SK" then do;'say SK =    Slovak Republic';a=5;end
  203. IF cc="SL" then do;'say SL =    Sierra Leone';a=5;end
  204. IF cc="SM" then do;'say SM =    San Marino';a=5;end
  205. IF cc="SN" then do;'say SN =    Senegal';a=5;end
  206. IF cc="SO" then do;'say SO =    Somalia';a=5;end
  207. IF cc="SR" then do;'say SR =    Suriname';a=5;end
  208. IF cc="ST" then do;'say ST =    Sao Tome and Principe';a=5;end
  209. IF cc="SU" then do;'say SU =    USSR (former)';a=5;end
  210. IF cc="SV" then do;'say SV =    El Salvador';a=5;end
  211. IF cc="SY" then do;'say SY =    Syria';a=5;end
  212. IF cc="SZ" then do;'say SZ =    Swaziland';a=5;end
  213. IF cc="TC" then do;'say TC =    Turks and Caicos Islands';a=5;end
  214. IF cc="TD" then do;'say TD =    Chad';a=5;end
  215. IF cc="TF" then do;'say TF =    French Southern Territories';a=5;end
  216. IF cc="TG" then do;'say TG =    Togo';a=5;end
  217. IF cc="TH" then do;'say TH =    Thailand';a=5;end
  218. IF cc="TJ" then do;'say TJ =    Tajikistan';a=5;end
  219. IF cc="TK" then do;'say TK =    Tokelau';a=5;end
  220. IF cc="TM" then do;'say TM =    Turkmenistan';a=5;end
  221. IF cc="TN" then do;'say TN =    Tunisia';a=5;end
  222. IF cc="TO" then do;'say TO =    Tonga';a=5;end
  223. IF cc="TP" then do;'say TP =    East Timor';a=5;end
  224. IF cc="TR" then do;'say TR =    Turkey';a=5;end
  225. IF cc="TT" then do;'say TT =    Trinidad and Tobago';a=5;end
  226. IF cc="TV" then do;'say TV =    Tuvalu';a=5;end
  227. IF cc="TW" then do;'say TW =    Taiwan';a=5;end
  228. IF cc="TZ" then do;'say TZ =    Tanzania';a=5;end
  229. IF cc="UA" then do;'say UA =    Ukraine';a=5;end
  230. IF cc="UG" then do;'say UG =    Uganda';a=5;end
  231. IF cc="UK" then do;'say UK =    United Kingdom';a=5;end
  232. IF cc="UM" then do;'say UM =    US Minor Outlying Islands';a=5;end
  233. IF cc="US" then do;'say US =    United States';a=5;end
  234. IF cc="UY" then do;'say UY =    Uruguay';a=5;end
  235. IF cc="UZ" then do;'say UZ =    Uzbekistan';a=5;end
  236. IF cc="VA" then do;'say VA =    Vatican City State (Holy See)';a=5;end
  237. IF cc="VC" then do;'say VC =    Saint Vincent and the Grenadines';a=5;end
  238. IF cc="VE" then do;'say VE =    Venezuela';a=5;end
  239. IF cc="VG" then do;'say VG =    Virgin Islands (British)';a=5;end
  240. IF cc="VI" then do;'say VI =    Virgin Islands (U.S.)';a=5;end
  241. IF cc="VN" then do;'say VN =    Viet Nam';a=5;end
  242. IF cc="VU" then do;'say VU =    Vanuatu';a=5;end
  243. IF cc="WF" then do;'say WF =    Wallis and Futuna Islands';a=5;end
  244. IF cc="WS" then do;'say WS =    Samoa';a=5;end
  245. IF cc="YE" then do;'say YE =    Yemen';a=5;end
  246. IF cc="YT" then do;'say YT =    Mayotte';a=5;end
  247. IF cc="YU" then do;'say YU =    Yugoslavia';a=5;end
  248. IF cc="ZA" then do;'say ZA =    South Africa';a=5;end
  249. IF cc="ZM" then do;'say ZM =    Zambia';a=5;end
  250. IF cc="ZR" then do;'say ZR =    Zaire';a=5;end
  251. IF cc="ZW" then do;'say ZW =    Zimbabwe';a=5;end
  252. IF cc="COM" then do;'say COM =   US Commercial';a=5;end
  253. IF cc="EDU" then do;'say EDU =   US Educational';a=5;end
  254. IF cc="GOV" then do;'say GOV =   US Government';a=5;end
  255. IF cc="INT" then do;'say INT =   International';a=5;end
  256. IF cc="MIL" then do;'say MIL =   US Military';a=5;end
  257. IF cc="NET" then do;'say NET =   Network';a=5;end
  258. IF cc="ORG" then do;'say ORG =  Non-Profit Organization';a=5;end
  259.  
  260.  
  261. if a~=5 then 'say Country Not Found'
  262. exit
  263.  
  264.